﻿Public Class XFormResultado

    Private Sub XFormResultado_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim num As Integer = NumJueces()
        ResultadoFinalMujeresTableAdapter.Fill(DsEvento.ResultadoFinalMujeres, num, EventoActivo.IDEvento)
        ResultadoFinalHombresTableAdapter.Fill(DsEvento.ResultadoFinalHombres, num, EventoActivo.IDEvento)
    End Sub

    Private Function NumJueces() As Integer
        Using TaJueces As New DsEventoTableAdapters.JuecesTableAdapter
            Dim DtJueces As DataTable = TaJueces.GetDataByAnioParticipacion(EventoActivo.Anio)
            Return DtJueces.Rows.Count
        End Using
    End Function

End Class